0 REM
1 IF GL=66 THEN 312
10 IF GL=5110 THEN 360
20 IF GL=5370 THEN 620
30 IF GL=5390 THEN 640
40 GOTO 260
50 DR$=""
60 IF DV=8 AND DR=0 THEN DR$="A:"
70 IF DV=8 AND DR=1 THEN DR$="B:"
80 IF DV=9 AND DR=0 THEN DR$="C:"
90 IF DV=9 AND DR=1 THEN DR$="D:"
100 IF DV=10AND DR=0 THEN DR$="E:"
110 IF DV=10 AND DR=1 THEN DR$="F:"
120 IF DV=11 AND DR=0 THEN DR$="G:"
130 IF DV=11 AND DR=1 THEN DR$="H:"
140 RETURN
150 END
260 REM: APPEND TO AN ARC FILE
270 PRINT"[147]      [193]PPEND TO AN EXISTING [193][210][195] FILE[146]"
280 PRINT"     [208]LEASE INSERT DISK WITH [193][210][195] FILE."
290 PRINT"  [208]RESS [158]$[146] FOR A DIRECTORY OF [196]RIVE 8,0."
291 PRINT" [208]RESS [158][213][146] FOR A NEW DRIVE CONFIGURATION."
292 PRINT" [208]RESS [158][211][208][193][195][197] [194][193][210][146] TO RETURN TO MAIN MENU."
300 PRINT"       [193]NY OTHER KEY WILL CONTINUE."
310 GET A$:IF A$="" THEN 310
311 IF A$<>" " THEN 320
312 GL=66:PRINT"[147] [208]LEASE INSERT DISK WITH [193][210][195] [193][201][196] ON IT"
313 PRINT"           AND PRESS ANY KEY.":POKE198,0
314 GET A$:IF A$="" THEN 314
315 PRINT"[147]";SPC(15);"[204]OADING..."
316 PRINT"[144]LOAD"CHR$(34)"MAIN"CHR$(34)",8";:GOTO670
320 IF A$<>"$" THEN  390
330 PRINT"[147]        [200]OLD DOWN [211][200][201][198][212] TO PAUSE."
340 PRINT"DIR":PRINT"":GL=5110
350 GOTO670
360 POKE198,0:PRINT"    [208]RESS ANY KEY TO RETURN TO MENU.[146]":GL=0
370 GET A$:IF A$="" THEN 370
380 GOTO 260
390 IF A$="[213]" OR A$="U" THEN GOSUB 760:RUN
391 PRINT"[147]     [193]PPEND TO AN EXISTING [193][210][195] FILE[146]"
400 PRINT"[147]  [206]OW THAT YOU KNOW THE NAMES OF THE"
410 PRINT"FILES TO BE [193][210][195]D, ANSWER THE FOLLOWING  QUESTIONS:"
420 INPUT "[193][210][195] FILE TO BE APPENDED TO";F$:IF F$="" THEN RUN
430 IFPEEK(2)>1THENPRINT"[208]UT [158][207]UTPUT[146] DISK IN [196]RIVE 8,0"
440 IF A=9 THEN 540
450 INPUT "[198]ILE, PATTERN OR [158][210][197][212][213][210][206][146]";FI$(A)
460 IF FI$(A)="" THEN 540
470 IFPEEK(2)>1THENINPUT"[207]N WHAT DRIVE CAN THIS FILE BE FOUND    (EX. 9,0)";DV,DR
480 GOSUB 50:FD$(A)=DR$
490 FOR I=1 TO LEN(FI$(A))
500 IF MID$(FI$(A),I,1)=" " THEN TE$(A)=TE$(A)+"?":GOTO 520
510 TE$(A)=TE$(A)+MID$(FI$(A),I,1)
520 NEXT
530 A=A+1:GOTO 440
540 IF FI$(0)="" THEN RUN
550 C$="ARC/A A:"+F$:EX$=""
560 FOR I=0 TO A-1
570 EX$=EX$+" "+FD$(I)+TE$(I)
580 NEXT
590 C$=C$+EX$
600 PRINT"[147]";C$:PRINT"":GL=5370
610 GOTO670
620 PRINT"[147]ARC/L A:"F$:PRINT"":GL=5390
630 GOTO670
640 POKE 198,0:PRINT"  [208]RESS ANY KEY TO RETURN TO MAIN MENU.[146]":GL=0
650 GET A$:IF A$="" THEN 650
660 RUN
670 POKE 631,13:POKE632,71:POKE 633,207:POKE635,13:POKE636,13:POKE198,5:GOTO 150
760 PRINT"[147]  [200]OW MANY DRIVES ARE YOU GOING TO USE?"
761 PRINT"        [158][207][146]NE OR [158][205][146]ULTIPLE [196]RIVES?"
770 GET A$:IF A$="" THEN 770
780 IF A$<>"[207]" AND A$<>"O" AND A$<>"[205]" AND A$<>"M" THEN 770
790 POKE 2,1
800 IF A$="M" OR A$="[205]" THEN POKE 2,2
810 RETURN